Chip 2004 April/CMCD0404.ISO/Software/Shareware/Programare/golden/goldensetup57420.exe/{app}/Golden32.exe/0/RCDATA/TSQLBUILDER/TSQLBUILDER.txt

Text File | 2004-03-08 | 10.6 KB | 372 lines

object SQLBuilder: TSQLBuilder
  Left = 571
  Top = 110
  BorderIcons = []
  BorderStyle = bsNone
  ClientHeight = 539
  ClientWidth = 296
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 296
    Height = 28
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    BorderWidth = 2
    BorderStyle = bsSingle
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object RzButton1: TRzButton
      Left = 6
      Top = 3
      Width = 18
      Height = 18
      Hint = 'Insert a Comma'
      Caption = ','
      HotTrack = True
      TabOrder = 0
      OnClick = CommaButtonClick
    end
    object RzButton2: TRzButton
      Left = 30
      Top = 3
      Width = 18
      Height = 18
      Hint = 'Insert a Space'
      Caption = '_'
      HotTrack = True
      TabOrder = 1
      OnClick = SpaceButtonClick
    end
    object RzButton3: TRzButton
      Left = 54
      Top = 3
      Width = 18
      Height = 18
      Hint = 'Insert a single quote'
      Caption = #39
      HotTrack = True
      TabOrder = 2
      OnClick = QuoteButtonClick
    end
    object RzMenuButton1: TRzMenuButton
      Left = 77
      Top = 2
      Width = 81
      Height = 20
      Alignment = taLeftJustify
      Caption = 'SQLBuilder'
      HotTrack = True
      TabOrder = 3
      DropDownMenu = PopupMenu2
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 28
    Width = 296
    Height = 3
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
  end
  object RzSplitter1: TRzSplitter
    Left = 0
    Top = 31
    Width = 296
    Height = 508
    Orientation = orVertical
    Position = 147
    Percent = 29
    SplitterStyle = ssGroove
    SplitterWidth = 6
    UseGradients = True
    Align = alClient
    TabOrder = 2
    BarSize = (
      0
      147
      296
      153)
    UpperLeftControls = (
      SQLStrings)
    LowerRightControls = (
      RzSplitter2)
    object SQLStrings: TStringGrid
      Left = 0
      Top = 0
      Width = 296
      Height = 147
      Align = alClient
      ColCount = 2
      DefaultRowHeight = 20
      FixedCols = 0
      RowCount = 20
      FixedRows = 0
      Options = [goDrawFocusSelected, goThumbTracking]
      TabOrder = 0
      OnClick = SQLStringsClick
      OnDblClick = SQLStringsDblClick
      OnEnter = SQLStringsEnter
      OnExit = SQLStringsExit
      OnKeyPress = SQLStringsKeyPress
      OnMouseWheelDown = SQLStringsMouseWheelDown
      OnMouseWheelUp = SQLStringsMouseWheelUp
      ColWidths = (
        143
        128)
    end
    object RzSplitter2: TRzSplitter
      Left = 0
      Top = 0
      Width = 296
      Height = 355
      Orientation = orVertical
      Position = 190
      Percent = 54
      SplitterStyle = ssGroove
      SplitterWidth = 6
      UseGradients = True
      Align = alClient
      TabOrder = 0
      BarSize = (
        0
        190
        296
        196)
      UpperLeftControls = (
        ObjectPages
        TreeSearchBtnEdit)
      LowerRightControls = (
        FieldsListView)
      object ObjectPages: TPageControl
        Left = 0
        Top = 0
        Width = 296
        Height = 169
        ActivePage = UserObjects
        Align = alClient
        TabOrder = 0
        OnChange = ObjectPagesChange
        OnChanging = ObjectPagesChanging
        object UserObjects: TTabSheet
          Caption = 'User Objects'
          object UserObjectVTree: TVirtualStringTree
            Left = 0
            Top = 0
            Width = 288
            Height = 141
            Align = alClient
            DefaultNodeHeight = 15
            Header.AutoSizeIndex = 0
            Header.Font.Charset = DEFAULT_CHARSET
            Header.Font.Color = clWindowText
            Header.Font.Height = -11
            Header.Font.Name = 'MS Sans Serif'
            Header.Font.Style = []
            Header.MainColumn = -1
            Header.Options = [hoColumnResize, hoDrag]
            IncrementalSearch = isInitializedOnly
            IncrementalSearchTimeout = 750
            Indent = 16
            ParentBackground = False
            PopupMenu = PopupMenu1
            TabOrder = 0
            TreeOptions.MiscOptions = [toAcceptOLEDrop, toFullRepaintOnResize, toInitOnSave, toWheelPanning]
            TreeOptions.SelectionOptions = [toRightClickSelect]
            OnDblClick = VTreeDblClick
            OnFocusChanged = VTreeFocusChanged
            OnKeyDown = VTreeKeyDown
            Columns = <>
          end
        end
        object AllObjects: TTabSheet
          Caption = 'All Objects'
          object AllObjectVTree: TVirtualStringTree
            Left = 0
            Top = 0
            Width = 288
            Height = 141
            Align = alClient
            DefaultNodeHeight = 15
            Header.AutoSizeIndex = 0
            Header.Font.Charset = DEFAULT_CHARSET
            Header.Font.Color = clWindowText
            Header.Font.Height = -11
            Header.Font.Name = 'MS Sans Serif'
            Header.Font.Style = []
            Header.MainColumn = -1
            Header.Options = [hoColumnResize, hoDrag]
            IncrementalSearch = isVisibleOnly
            IncrementalSearchTimeout = 750
            Indent = 16
            ParentBackground = False
            PopupMenu = PopupMenu1
            TabOrder = 0
            TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toWheelPanning]
            TreeOptions.SelectionOptions = [toRightClickSelect]
            OnDblClick = VTreeDblClick
            OnFocusChanged = VTreeFocusChanged
            OnKeyDown = VTreeKeyDown
            Columns = <>
          end
        end
        object DictObjects: TTabSheet
          Caption = 'DictObjects'
          object DictObjectVTree: TVirtualStringTree
            Left = 0
            Top = 0
            Width = 288
            Height = 141
            Align = alClient
            DefaultNodeHeight = 15
            Header.AutoSizeIndex = 0
            Header.Font.Charset = DEFAULT_CHARSET
            Header.Font.Color = clWindowText
            Header.Font.Height = -11
            Header.Font.Name = 'MS Sans Serif'
            Header.Font.Style = []
            Header.MainColumn = -1
            Header.Options = [hoColumnResize, hoDrag]
            IncrementalSearch = isInitializedOnly
            IncrementalSearchTimeout = 750
            Indent = 16
            ParentBackground = False
            PopupMenu = PopupMenu1
            TabOrder = 0
            TreeOptions.MiscOptions = [toAcceptOLEDrop, toFullRepaintOnResize, toInitOnSave, toWheelPanning]
            TreeOptions.SelectionOptions = [toRightClickSelect]
            OnDblClick = VTreeDblClick
            OnFocusChanged = VTreeFocusChanged
            OnKeyDown = VTreeKeyDown
            Columns = <>
          end
        end
      end
      object TreeSearchBtnEdit: TRzButtonEdit
        Left = 0
        Top = 169
        Width = 296
        Height = 21
        Align = alBottom
        CharCase = ecUpperCase
        TabOrder = 1
        OnKeyDown = TreeSearchBtnEditKeyDown
        OnKeyPress = TreeSearchEditKeyPress
        AltBtnGlyph.Data = {
          DE000000424DDE0000000000000076000000280000000D0000000D0000000100
          0400000000006800000000000000000000001000000000000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7000777777777777700077770000077770007777066607777000777706660777
          7000777706660777700070000666000070007706666666077000777066666077
          7000777706660777700077777060777770007777770777777000777777777777
          7000}
        ButtonGlyph.Data = {
          DE000000424DDE0000000000000076000000280000000D0000000D0000000100
          0400000000006800000000000000000000001000000000000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7000777777777777700077777707777770007777706077777000777706660777
          7000777066666077700077066666660770007000066600007000777706660777
          7000777706660777700077770666077770007777000007777000777777777777
          7000}
        AltBtnNumGlyphs = 1
        ButtonNumGlyphs = 1
        AltBtnKind = bkCustom
        ButtonKind = bkCustom
        AltBtnShortCut = 8205
        ButtonShortCut = 13
        AltBtnVisible = True
        OnAltBtnClick = TreeSearchEditAltBtnClick
        OnButtonClick = TreeSearchEditBtnClick
      end
      object FieldsListView: TListView
        Left = 0
        Top = 0
        Width = 296
        Height = 159
        Align = alClient
        Columns = <
          item
            Caption = '#'
          end
          item
            Caption = 'Name'
          end>
        ReadOnly = True
        RowSelect = True
        PopupMenu = PopupMenu3
        TabOrder = 0
        ViewStyle = vsReport
        OnClick = FieldsListViewClick
        OnColumnClick = FieldsListViewColumnClick
        OnColumnRightClick = FieldsListViewColumnRightClick
        OnCompare = FieldsListViewCompare
        OnContextPopup = FieldsListViewContextPopup
        OnDblClick = FieldsListViewDblClick
        OnKeyPress = FieldsListViewKeyPress
      end
    end
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    OnPopup = PopupMenu1Popup
    Left = 18
    Top = 55
  end
  object PopupMenu2: TPopupMenu
    Left = 57
    Top = 55
    object Refresh1: TMenuItem
      Caption = 'Refresh'
      OnClick = Refresh1Click
    end
    object Options1: TMenuItem
      Caption = 'Options...'
      OnClick = Options1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object StopLoading1: TMenuItem
      Caption = 'Stop Loading'
      OnClick = StopLoading1Click
    end
  end
  object PopupMenu3: TPopupMenu
    Left = 97
    Top = 55
    object Pastecommalistofcolumnsintocurrenttab1: TMenuItem
      Caption = 'Paste comma list of columns into current tab'
      OnClick = Pastecommalistofcolumnsintocurrenttab1Click
    end
    object Pasteformattedcolumnlistintocurrenttab1: TMenuItem
      Caption = 'Paste formatted column list into current tab'
      OnClick = Pasteformattedcolumnlistintocurrenttab1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Putcommalistofcolumnsontoclipboard1: TMenuItem
      Caption = 'Put comma list of columns onto clipboard'
      OnClick = Putcommalistofcolumnsontoclipboard1Click
    end
  end
end